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1 IF STASWITCH 
: SBEGIN STAPRELNA. 00,RMSRMSO,<PROCESS FILE NAME> 

0 4 $BEGIN RnOPaE LH 033, RMSRMSO,<PROCESS FILE NAME> 

i y -ENDC SWITCH 

oo 8 S eu ecereccceeeeccccceseccerereeennnnecereqqcceecenqcecceeceeqqeccceeeeeccere 

;* 

00 10 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
00 11 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
99 1g i* ALL RIGHTS RESERVED. . 
00 14 :* THIS SOFTWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
9000 15 :* ONLY IN ACCORDANCE WITH THE TERM U SE AND WITH THE * 
00 16 :* INCLUSION OF tHe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR THER * 
0000 17 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 18 :* OTH SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9000 19 :* TRANSFERRED. . 
0000 A :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 : t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 z :* CORPORATION. . 
0000 5 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 6 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
0000 27: ‘ 
0000 3 * s 
0000 9 3 TPRBRRBABABALAZLALALALEALALALALSLEREEESERAREEERRE RESALE RE RRR ERR RRR RR ARERR RA RES A SE SS 
0000 0; 
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% p++ 
; Facility: RMS32 


Abstract: 
This routine performs RMS32 file name processing. 


Environment: 
Star processor running Starlet exec. 


Author: L. F. Laverdure Creation Date: 4-JAN-1977 
Modified By: 


V03-033 RASO329 Ron Schaefer 31-Jul-1984 
Fix RMSPRFLNM to set GET access internally if EXE access is 
requested; this is needed for execute-only command procedures. 


V03-032 RASO296 Ron Schaefer 18-Apr-1984 
Add secondary device name item code to $GETDVI. 
This name is returned in NAMST_DVI if the device is spooled. 


V03-031 RASO289 Ron Schaefer 66-Apr-1984 
Add notranslation flag to call to SASSIGN; change 
to WLD error when wildcard detected. 


V03-030 RASO268 Ron Schaefer 12-Mar-1984 
Move searchlist loop decision to caller of RMSPRFLNMCALT). 


V03-029 0GB0026 Donald G. Blair 11-Mar-1984 
Change BSBW to JSB to fix broken branch. 


v03-028 RASO242 Ron Schaefer 23-Jan-1984 
Fix aypeneens caused by Lack of a fwa (valid R10) 
on calls to RMSPRFLNM or error returns from RMSXPFN. 


v03-027 RASO229 Ron Schaefer 5-Jan-1984 
Return an error if SOPEN/SCREATE specifies a directory 


containing "'..."* after oupees ten Related file 
processing will resolve ellipses normally. 


v03-026 RASO225 Ron Schaefer 20-Dec-1983 
Fix stream PPF file with FIN carriage control problem; 
eliminate setting of NAMSV_CNCL_DEV and NAM$V_ROOT_DIR 
in RMSASSIGN as this is now done by RMSEXPSTRING. 


v03-025 RASO212 Ron Schaefer 15-Nov-1983 
Fix version/implementation skew in RMSASSIGN by 
conditionalizing this module for bath RMS and 
Stand-alone BACKUP on the STASWITCH parameter. 


v03-024 RASO209 Ron Schaefer 4-Nov-1983 
lean-up returned device characteristics by defining 
a@ routine RMSRET_DEV_CHAR to do a uniform tob. 


v03-023 RASO198 Ron Schaefer 6-0c t-1983 
Change RMSPRFLNMCALTJ logic to not have an input parameter. 


oo 
SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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8 9 v03-022 $HZ0001 en H. Zalewski \ensep= 1983 
Y Add a new itemcode - the itemcode list for the $GETDVI. 
6 v03-021 RASO183 Ron Schaefer 22-Sep-1983 
§ Make searchlists be non-wildcard characters. 
95 v03-020 KBT0560 Keith 8. Thompson 21-Jul-1983 
2 Set name block flags correctly 
0 9 v03-019 $HZ0001 Stephen H. Zalewski 26-Jun-1983 
0 Get full device name (nodeSdevice. name) from GETDVI. 
6 v03-018 cores Keith 8. Thompson 66-Jun-1983 
Turn on search List 
v03-017 KBT0515 Keith B. Thompson 23-May-1983 
RMSXPFN moved 
v03-016 ae 0510 Keith B. Thompson 


5-May-1983 
Use RMSDEALLOCATE™ FWA add some search List stuff and 
redo rooted directories 


V03-015 RASO146 Ron Schaefer 18-Apr-1983 
Fix FWASC_FIBLEN assume to have slightly more 
be Bane for ACP FiB Length changes. 


v03-014 posers Ron Schaefer 11-Apr-1983 
Fix device name buffer length to be 16, and change 
SGETOVI to SGETDVIW. 


v03-013 RASO139 Ron Schaefer 24-Mar-1983 
wee RASO129. Not returning the true RAT and RFM values 
a ‘‘bug’’, since many programs do not set any values 
Ms SOPEN? and expect to find out what the RAT and RFM values 
are from RMS. 


v03-012 RASO129 Ron Sc ha efer 4-Mar-1983 
Do not destroy the user's RAT and RFM values for 
indirect PPFs. 


v03-011 JWHO187 Jeffrey W. Horn 15-Feb-1983 
ode. yoyune ee, to List of items retrieved with 


SoOooooooooooooooooooo 
SSoOoOoOoOooooooooocoooSo 


v03-010 KBT0485 Keith B. Thompson 4-Feb-1983 
Deallocate all pages off the ifab free List 

v03-009 KBT0473 Keith B, Thompson 24-Jan-1983 
Fix kbt0469, aeagtae the correct size to RMSRETSPC. 

v03-008 KBT0469 Keith B. Thompson 24-Jan-1983 
Deallocate the fwa on indirect ppf open 

v03-007 KBT0432 Keith B. Thompson 3-Dec-1982 
Change the way the device name is stored in shrfi (but 


MEW CO ODO NOAU EWN 9 OD NOAUEWIN 9 OONOAOU EWN 0 OONOU EW 


REESE LWWWIWIWIWIWINIWIWIRNIPUPONININONININN 2 2 QO OO OOOO CON 


a a a ak at at a td 8 a a a a a as ss a ss 2 2 a 


SOOOOoCOOCOOOOOSOOSOSOOOOOOSOSOSOOSOSOSOOOSOSOOSOSO 
SOOOCOSCOSOCOSOSOCOSOOOSSOOSOOSOOOCOSO OOOO OOOOOOOOoOoOoOO 


SOSOSOSOSOSOSOSOSOOSOSSOSOOOSOSOSCOSOOSSSoSo 
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v03-006 KBT0407 Keith B. Thompson 10-Nov-1982 


J 6 
PROCESS FILE NAME 16-SEP-1984 00:28:51 VAX/VMS M v04-00 P 
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Fix a broken assume (from unfolding fwa) and call new 
Sgetdvi system service 

v0O3-005 KBT0212 Keith 8. Thompson 23-Aug-1982 
Reorganize psects 

v03-004 KBT0098 Keith 8. Thompson 13-Jul-1982 
Clean up psects 

v03-003 KEK0026 K. F Kinnear 23-Mar-1982 
More work Like KEK0022 <= correctly allow foreign devices 
to have ANSI-"'a’’ names. Also add back in NFS to FOREIGN 
branch deleted by RAS0067. 

v03-002 RAS0079 Ron Schaefer 17-Mar-1982 
Add translation table mask support (FABSB_DSBMSK). 

v03-001 RASO080 Ron Schaefer 17-Mar-1982 


Correct stream format carriage control for indirect PPFs, 
both terminals and files. 


V02-044 RAS0067 Ron Schaefer 99-Feb-1982 
Re~arrenge execution paths so that FWAST_SHRFILDEV 
is filled in for all devices. This field is used to 
return a canonical device name in NAMST_DVI. 


v02-043 KEK0022 K. E. Kinnear 2-Feb-1982 
Open restrictions on quoted strings to all non-disk 
(actually non-DIR) devices. 


v02-042 KEK0018 K. E. Kinnear 18-Jan-1982 
Modifications to allow ANSI-"'a’’ filespecs only on 
magtape devices. Also, remove all references to 
NAM$x_QUOTED and replace with NAM$x_NAME. 


V02-041 RASO060 Ron Schaefer 15-Jan-1982 
Fix temp buffer usage for concealed devices; 
force stream PPF terminals to have RAT=CR. 


v02-040 RASO0S8 Ron Schaefer 88-Jan-1982 
Correct concealed dewice error path so as to return 
SASSIGN errors; and fix bad code saving FWAST_SHRFILDEV. 


v02-039 RASO0047 Ron Schaefer 18-Nov-1981 
Fix the UIC form of directories under rooted directories, 
in order to make the AME and compatibility mode work. 


v02-038 KPLO002 Peter Lieberwirth 15-Nov-1981 
Fix RASOO045 to not use FWAST_XLTBUFF1 in RMSASSIGN. 
Use unnamed space at end of first page instead. 
(Fix this better ASAP!) 


v02-037 RASO0045 Ron Schaefer 11-Nov-1981 
Complete KPLO001 by changing the reference from 
A T_WILD to FWAST_SHRFILDEV. Also fix bad register 
reference. 
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| 
V02-036 RAS0040 Ron Schaefer 16-0¢ t-1981 | 
Implement e RASASS directories for concealed devices. 
Restructure RMSASSIGN to parse the translation of the | 
concealed device name, assign a channel to the Eawoosee 
Sev ce and set the internal MED to the DID of t 
root directory. 


v02-035 KPLOO001 P Lieberwirth 7-0¢ t-1981 
Save unit number and device mene in FWAST_WILD field for 
later use in naming shared file. 
v02-034 RASO0025 n Schaefer 18-Aug-1981 
Allow SGET/$PUT Phe UDF seq org files, except as 
indirect PPF. 
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-SBTTL RMSPRFLNM, Filename Processing Routine 
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RMSPRFLNM == Filename Processing Routine. 


This routine first sets up various file access and sharing bits, : 
then allocates a buffer and bdb to use as a scratch work area for building 
the expanded filename string and secret rae tam with filacp, calls rm$xpfn 

to expand the filename string, assigns an i/o channel, and finally 
retrieves the device characteristics, filling in the associated 

IFAB and FAB fields. 


If the result of the file name expansion indicates that the file in 
question is an indirectly accessed process permanent file, no i/o 
channel need be cp ht gee as this has already been done. Instead, 

an ifi is constructed that points this fab at the associated process 
permanent file. This has the side effect of turning a $create cali for 
an indirectly accessed process permanent file into an $open. This is 
done by returning to the SOPEN code rather than the $CREATE code. 


If an error occurs, cleanup may be required to 
deallocate the bdb and buffer and deassign the channel. 


OOOOCooOooooooooooooooooooo 
COOOOCCCOCOCOOOOOOC OOOO OOoOoOoSo 


Calling Sequence: 
BSBW RMSPRFLNM 
Input Parameters: 


R11 impure area address 

R10 IFAB address 

R9 IFAB address 

R8 FAB address : d 

RO input error status (only if search List operation) 


Implicit Inputs: 


The contents of the various FAB and IFAB fields 
(see functional spec for details), in particular, 
the various file name specification fields. 


Output Parameters: 


R10 FWA address 

RO status code (could be RO input status) 
R1 thru RS destroyed 

none 


Implicit Outputs: 


Various fab, fwa, and ifab fields are filled in (see 
functional spec for details). 

FWASQ_FIB initialized, ; : 

device fields in the ifab filled in. 


SOOO QOOoooooooCoooooooooooooooooooooooooooooOoQooooOoooooooOoOOo Om 
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lar, success, dev, 


Standard rms, in p 
in n to the codes returned 


a 
chn, and dme, ad 
by RMSXPFN. 

Side Effects: 


See note above on change of $create into Sopen for indirect ppf. 


a, 
aon 
oc 


RMSPRFLNM: : 


ODOOCOCOCOOCOOCoOooCoo 


Fill in fac IFAB field from fab handling defaults and setting summary 
write access bit as required. 


OOCCVOOCOCOCCOOCOOOOOCOCOooO 


22 AD = «16 AB 39 
1 


4 MOVB cree FAC(R8) , IFBSB_FAC(R9) . -— ut 
ranc n 
06 22.09 07 «£0 rs 


BBS #FABSV_EXE, IFBSB_FAC(R9),SETGET ; or if EXE desired 


Entry point for RMSOCREATE (IFB$B_FAC already set) 


SDOSCOCCOCOCSCOCOSCOSOOSOOSOSOOSOOSOOOOOSOOSOOOOOOSOSOoS 


RIMINI | “$QOCOKSKCOCOOCOOCOSOSSoO 


RMSPRFLNMALT: : 
1c 93 BITB #FABSM_UPD!FABSM_DEL!FABSM_TRN,-~ 
22 AY IF B$B_FAC(R9) 
04 13 BEQL SETWRT : branch if not upd. del, or trn 
3; accessed, else imply get access. 
22 a9 02 8 SETGET: BISB2 #FABSM_GET  IFBSB_FAC(R9) ; default to get access 
22 a9 1D Y SETWRT: BITB #F ABSM_PUT! F ABSM_UPD! F ABSM_DEL ! FABSM_TRN, IFBSB_FAC(R9) 
04 BEQL 20$ ; branch if none of the varieties 
3; of write access is specified. 
SSB #IFBSV_WRTACC, (RY) 3; set summary bit 
: Go expand file name. 
OOOO0000'EF 16 208: JSB RMSXPFN : get fully qualified file name 
38 50 =—o«E9 BLBC RO,60$ 3 Quit on error 


Check for residual wild characters in file name. 
If FWASV_QUOTED, then skip check. This can either be ANSI-"'a’’ filespecs 
where FWASQ_NAME really holds a quoted otring, or it could be a network 


PAPA DADE DS TB BB BEE WWII WIIG ONIN NNN 


NAME WN OC OONOAUE WN OOO NA UE WN 0 OONAUE WIN (OO ONOUSWN—OORD ® 
Sete Ge 


COOOOCOCOCCOCOSCOOOOOOCOCOOOOOOOSOOOOOOOOOOOOOOOOOOOSOOOSOOOOOOOoOO 


DOA —F DODO DODO ODO ODF OOCOCOOOO MN FANN IMAAOAOOAANYY 


SOCCOOCOOCOOOoOSooOoOoO 
UIWIAPIPIPOPONINDNNONIPPU NNT 


tf quoted string, where there is nothing in NAME. 
9 
306A 18 €1 0 BBC #FWASV_WILDCARD, (R10) ,508 ; don't check if no wilds 
14 6A 1A £0 71 BBS FWASV~QUOTED, (R10) ,408 ; don't check if quoted 
0170 CA. 2A. 3A re LOCC «= @#*A' ®" 7FWASO NAME (RIO) ,~ : any *'s in name? 
0174 DA 3 @F WASQ_NAME+% (R10) 


12 BNEQ 90$ ; if neq yes 


ere 
v04-03 
0170 fA 25 
174 DA 
23 
14 6A = 1C 
03 1D 
50. 6A 
51._ 0130 CA 
17 61 =10 
51. 08 
F6 50 
OC AA 
03 
10 
O1E3 
peneiinenpeiagiicaninaie 


; Check for residual ellipses in the directory spec. Related file 
3; processing should resolve valid uses previously. Unfortunately, 
; no simple check is possible -= one has to look at each directory 
; spec for the FSCBSV_ELIPS bit. 


50$: TSTB FWASB_ESCFLG(R10) 


A te tt a et ee Re ee en: _ 
~N~ 


80$: BRw INDPPF 3; process indirect ppf file 
| 


B 7 
E 16-SEP-1984 00:38:51 AX/VMS Macro V04-00 Page 9 RMO 
name Processing Routine -SEP-1984 16:22:09 CRMS.SRCIRMOPRFLNM.MAR; 1 (4) VO4 
LOCC #*A'S" ,FWASQ_NAME(R10),- 3 any Z's in name 
OF WASQ_NAME+% (R10) 
BNEQ 90$ : if neq yes 


40$: C FWASV_WILD_DIR,(R10) ,50$ ; don't bother if no wild dirs 
EXTZV #FWASVEDIR_CVLS,AFWASS_DIR_LVLS,=; get # of dirs to check 
MOVAQ FWA$2 DIR1(R10),R1 3; ptr to dir descriptors 

45$: BBS #FSCBSV_ELIPS, (R1),100$ > wee iS a no-no 
ADDL2 #8,R1 3 next directory 
SOBGEQ R0,45$ ; while they Last 


2 ; Check for indirect open of process permanent file. 


° 


did we get a ppf flag? 


BNEQ : branch if so 

B8SBB RMSASSIGN 3 assign a channel 
60$: RSB 3 exit 
90$: — WLD ; give wildcard file name error 
100$: ne DIR 3: give bad directory error 


~-ENDC =; STASWITCH 


¢ 7 
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of i -SBTTL RMSASSIGN, Assign a Channel 
; RMSASSIGN 
6 Now assign a channel and get the associated device characteristics. 


Assign in MAX( requested mode,caller's mode ) if NFS or UFO set, 
else assign in exec mode. 


Sete te Sete tee 


RMSASSIGN:: 
IF NDF ,STASWITCH 
BBS #FWASV_NODE, (R10) ,NTASGN ; branch if network request 
-ENDC ;STASWITCH 


4E 6A 19 €0 


PRES FWA inononononononononun 2 2 oe es 


PEPER L RPL ELLER LPL REPEL PR PEP PPE 
VIFWR OC OODNAUESWN OC OONOUSWN —OWOONOULW 


> Note: Device name yee has been prefixed with an underscore, so 
: assign system service will not attempt to translate it again. 
ASSIGN: 
00 OD PUSHL #0 3; no mailbox 
ASSUME ASSIGNS$_MBXNAM EQ ASSIGNS_ACMODE+4 
01 ODD A PUSHL #PSLS$C_EXEC 3; exec mode 
44 ASSUME FABSV_UFO GE 16 
ret ASSUME FABSV_NFS GE 16 
06 A8 03 93 448 BITB § #<FABSM_UFO!FABSM_NFS>@-16,F ABSL, FOP+2(R8) 
0 863 449 BEQL 40$ ; branch if neither ufo nor nfs set 
6s EF 450 EXTZV #FABSV_CHAN_MODE ,- ; replace with requested mode 
0 4 451 #FABSS CHAN_MODE,- : 
6 4A AB 85 43¢ FABSB_ACMODES(RAS,(SP) ;: 
6 OA AI 91 0088 45 CMPB  —s IF BSB MODE (R9) , (SP) ; compare with caller's mode 
04 18 8C 454 BLEQU 40$ 3 maximize 
6—€ OA AD QA : oa? MOVZBL IFBSB_MODE(R9), (SP) ; switch to caller's mode 
i 437 ASSUME ASSIGNS_CHAN EQ ASSIGNS_ACMODE-4 
$9 459 40$: ssb #7, (sp) 3; set notranslate thee 
20 A9—soOOF 096 460 PUSHAL IF BS$W_CHNL(R9) ; get channel # back here 
843 +66 ASSUME ASSIGNS_DEVNAM €EQ ASSIGNS_CHAN~4 
00E0 cA 7F 0099 464 PUSHAQ FWAS$Q_ DEVICE(R10) ; device name descriptor 
05 zy E1 4 re BBC #FWAST_CONCEAL_DEV,- ; is this a concealed device 
O0OE8 CA 7E OOAI 46 MOVAQ FWASQ. CONCEAL_DEV(R10) ,-: yes replace the descriptor 
6E BA? rf (SP) : 
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00000000 * 9F 98 
27 50 


002C 


OD 68 


0138 
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E9 
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31 
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w 
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>>r>r>r 
OOWDODOOOWOMOONNNNNNNNNNS oO Z 


WWW OOOCCOTAAD 27 
SEE EEE EEE EEE EE 


SHOSOD DOO DOOD 


PDEA AAAAAAAAAAAAAAAAAA AAA AWWWANINMON AAAAAOAAAO 
MEUM 9 ODNAOUEWN" OOONOUE WN". 
Se Ge Ge 


ane 


YIN So SSS S28 eS SeS2V2 


SOOOCOOCOSOSOOOSSOOSOOSOOOSOOOOOSSOSOSOSOSOSOSOSOSOSOOSOSOSOOSOOSDOOOOOOOOOOOOOO 


SOOSOOSOSCSOOSOSOSOSOSOOSCOSOOOOOOOOOOOOOOOSCSoO 
PAAOAAAAOAAOOAAAOAOOAAAQAAAAOAAAOOQAOAOAO 


QPVPVPV IV DPVDVPVDPVIVPVPVPVSTSTSTSTAISISTA AAT 


am 


a Channel 
ASSUME ASSIGNS_NARGS €0 


45$: CALLS #4,@#SYSSASSIGN 
BLBC RO,ERRASGN 


"CREE NEBR) UARUECTRSGBN Mabey 0 
4 


; and do the assign 


Assign succeeded = get and set device characteristics. 


BSBW = GETDEV_CHAR 
IF NDF ,STASWITCH 
BLBC = (R11) ,DIRECTPPF1 


: Set up fib descriptor. 


RMSSETFIB:: 


ASSUME FIBSC_LENGTH LE FWASC_F IBLEN 


MOVZWL pe ieee ely ag A$Q_FIB(R10) ; set Length of fib 
MOVAB T_FIBBUF (R10) ,- ; set address of fib buffer 
Asa ~t IBea( R10) 3 
ERROR: RSB 
DIRECTPPF1: 
BRW DIRECTPPF : branch if process-perm file 


-ENDC = ;STASWITCH 
IF DF ,STASWITCH 


BBS S*#EXESV_INIT,EXESGL_FLAGS,110$ ; ; br if running online 
CMPB FWASL_DEV_CLASS(R10)- wocs DISK ; disk device? 


BEQL 100$ ~ “br if disk 
CMPB FUASL _DEV_CLASS(R10), wocd_ TAPE ; tape device? 
BNEQ 110$ ~ “br if not tape 


8 #DEVSV_FOR, IFBSL_PRIM maT (R9) ; simulate mount/foreign 
SB #DEVSV_FOR, IFBSL— AS -DEV(R9 9) ; simulate mount/foreign 
CMKRNL_S A_VOL_ ; set volume valid 
se %.. “RO, ERRASGN : br if verifychan failed 


“FUNC = #10$_PACKACK,- 
EFN = = #IMPSC -ASYQIOEFN, - : throw-away efn 


Riis CHN 
BLBC RO. ERRA br if Q10 failed 
110$:  $DASSG sCHANSI FBSW. CHNL (RO) 
cLRW “1 FBSW_CHNL(R9) 


100$: 


clear channel number 
: exit 


-ENDC =; STASWITCH 
IF NDF ,STASWITCH 


eee 


pt 
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CODD OD SIN ND DDD DDD DS TTT Be BS BE BS BB BE AAI WI NII 


WR DO ODNAUE WIN 9 OD NAME WIN @ O OO NAUS WN CO ODNOA UE WPD "CO ODOVNAUE WH "O0OnN —- 


a Channel "ore een 38e 


Assign a channel to the network device 
characteristics. 


JSB NTSASSIGN : 
BLBC RO, ERRASGN : 
BSBB ss GE fDEV_CHAR : 
JMP NTSMOD~DEV_CHAR : 
-ENDC =; STASWITCH 2 


; Handle assign error. 


ERRASGN: 

IF NDF ,STASWITCH 

RMSERR CHN,R1 : 
BRW RMSMAPERR ; 
~-ENDC = ;STASWITCH 

IF DF ,STASWITCH 

MOVL IFBSL_LAST_FAB(R9),R1 ; 
MOVL RO, FABSL_STV(R1) 3 
RMSERR CHN,RO 3 
RSB : 
~-ENDC = ;STASWITCH 


; Kernel mode routine to set volume valid 
: for use in stand-alone Backup. 


IF DF, STASWITCH 
STA_VOL_VAL: 
.WORD “M<R2,R3,R4,R5> ; 
MOVZWL IFBS$W.CHNL(R9),RO : 
JSB a#1OCSVERIFYCHAN : 
BLBC —- RO 210s ; 
MOVL  CCB$L_UCB(R1),R1 
BISW2 #UCBSA_VALID,UCBS$W_STS(RI 
BISL2 #DEVSM“MNT!DEVSM_FOR,UCBS 
MOVL #1,R0 ; 
210$: RET 5 
.ENDC =; STASWITCH 


10:52:09 


AX/VMS Ma v04-00 


and get and set its device 


assign a channel 
branch on error 
get network device characteristics 
modify device characteristics 
and return to caller 


unspecified chnl assgn failure 
map error and return to caller 


get FAB address 
set STV value 
set RO 

exit 


and mark device mounted 


kernel mode routine to set valid 
load channel number 

et CCB address for channel 

r if failed 


e 
; get UCB address from CC 


B 
; set software valid bit 


L_DEVCHAR(R1) 
; set mounted foreign bits 


indicate success 
return 


cro P 
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16-SEP-1984 00: 
mitt 98:5 
-SBTTL GETDEV_CHAR = Determine t 
Subroutine to get and set device chara 


RO-R2 destroyed 


; The device characteristics wanted are: 
F DVI$_DEVCHAR s 

; VBUF $12 => 

; VBUFSIZ (sec) 2 
3 VCLASS 

b DEVNAM 

: DEVNAM (sec) = 
: OCKNAM 


covVc VT VTVTCT9 


vVI$ 
vVI$ 
vVI$ 
vVI$ 
vVI$_ 
VI$_ 
VI$_ 
vV1$_ 
GETDEV_CHAR: 

; Create item List on stack 


MOVL SP, R2 
PUSHL #06 


Create item for devchar value 


PUSHL #00 
PUSHAL IFBSL_PRIM DEV(R9) 
PUSHL #<DVIS_DEVCHARA16>+4 


: Create item for secondary devchar value 


PUSHL #00 3 
PUSHAL IFBS$L_AS_DEV(R9) : 
PUSHL #<<DVT$_BEVCHAR!DVISC_SEC 


F Create item for devbufsiz value 


$31 AX/VMS Macro v04-00 
:09 RMS .SRCJRMOPRFLNM.MAR; 1 


he device characteristics 
cteristics. 


F 
F 
: 
WASL_DEVCLASS 

WAST_SHRF ILBUF pointes to by shrfil) 
- (pointed BS sper" 
Ww -_ 


to b ) 
$T-SHRFIL_LCKNAM (pointed to by sirfil_le 
RECSIZ 


save addr to calculate size 
mark end of List 


3; return size 
: return buffer 
; item code and ouffer size 


return size 
return buffer 
ONDARY>@16>+4 ; item code and buffer size 


=—OODNA NE WN $9 OD NAME WIN  O OD NOAM EWN 0 OD NOUN EW 0 OO NAN EWI | OO OONO 
. oe * . * . . 


PUSHL 
PUSHAL 
PUSHL 


PUSHL 


#00 
IFBSL_DEVBUF 


#<DVIS_DEVB 


#00 


$I 
UFS 


Z 
I 


(R 
za 


9 
1 


) 
6>+4 


3; return size 
3; return buffer 
3; item code and buffer size 


: Create item for secondary devbufsiz value 


3 return size 


SSS SS 
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PROCESS FILE NAME 7 SEP-19 y 4 
GETDEV_CHAR = Determine the device chara 5-SEP-1984 RMS.SRCIRMOPRFLNM.MAR; 1 6) 
: (9 DF 7 64 PUSHAL IFBSL_ASDEVBSIZ(R9) : return buffer 
0009 Ree DD 64 PUSHL #<<DVT$_DEVBUFSIZ!D bvisc_SECONDARYS91 654; item code and buffer size | 
1 ts: | 
1 646 : Create item for devclass value | 
1 64a * | 
DD 1 e¢8 PUSHL #00 3 return size 
1C AA OF 1 650 PUSHAL FWASL_DEV_CLASS(R10) : return buffer 
00040004 8F DD ! $2) PUSHL #<DVIS_DEVCLASS@16>+4 ; item code and buffer size 
3; 
i : Create item for devnam string 
656 * 
0190 CA 3F g25 PUSHAW FWASQ_SHRFIL(R10) 3: return size 
0194 CA ODD $28 PUSHL FWASQ”SHRFIL+4(R10) 3: return buffer 
00E80010 8F DD 65 PUSHL yeovls> FULLDEVNAMa16>- 
969 +FWASS_SHRF ILBUF ; item code and buffer size 


| 
662 ; 
66 : Create item for devlocknam string 


DOAAAASASAOM OM nmcnccrmn > > PPP PP LOOMMAOOOOU 
o 
o 
~ 


item code and buffer size 
save addr for call 

make iosb 

save addr for iosb 


ace 
bo 


PUSHL #<OVIS_VOLNAMATO>+12 
MOVL SPR 

SUBL2 #8,SP 

MOVL SP,RO 

SGETOVIW_S - 


1 
1 
1 
1 
1 
65 
0198 CA 3F 666 PUSHAW FWASQ_SHRFIL_LCK(R10) z return size 
019C CA ODD PUSHL FWASQ-SHRFIL-LCK+4(R10) ; return buffer 
00F00010 8F DD 668 PUSHL #<DVIS_DEVLOCKNAM@16>- 
069 +FWASS_SHRFIL_LCK ; item code and buffer size 
671 ; 
ore ; Create item for secondary devnam string 
674 ° 
O1A0 CA 3F 675 PUSHAW FWASQ_AS_SHRFIL(R10) 3 return size 
O1A4 CA DD 676 PUSHL FWASQ”-AS”-SHRFIL4+4(R10) ; return buffer 
00E90010 8F DD 4 677 PUSHL 4#<<DVT$ FULLDEVNAM! DVISC_ * SECONDARY>@16>- 
; 978 +FWASS_AS_SHRF ILBUF J item code and buffer size 
4 680 ; 
2 e 1; Create item for recsiz value 
4 gag 
00 oD 4 684 PUSHL #00 3 return size 
obs AA OF & 685 PUSHAL FWASL RECSIZ(R10) ; return buffer . 
00180004 8F DD 4 ° § PUSHL #<DVIS_RECSIZa16>+4 : item code and buffer size | 
688 ; 
? ; ; Create item for volume Label | 
P | 
691 | 
DD 636 PUSHL #00 return size 
69 PUSHAL FWAST_VOLNAM(R10) return buffer 
| 


AWOS NW oe 


H 
PROCESS FILE NAME i p- 138% 90:38:31 AX/VMS Macro v04-00 Page 
GETDEV_CHAR = Determine the device chara 6:22: RMS. SRCIRMOPRFLNM.MAR; 1 


~~ 


99 CHAN = {CBee Cie ( (R9),= ; 1/0 channel number 
EFN = #IMPSC_ASYQIOEFN,~; Far gucouey efn 
10SB = (RO),= : osb {3° gnrnenrentetng 
ITMLST = (R41) : item | 
5E D MOVL ° 3 restore stack 
‘ : exit on error 
78 36 3 BLBC ROCER ERRASGN1 it 


Subtract one from the device name sizes in order to get rid of the ‘’:"’ 
at the end of the name 


i 
1 
16 7 , 
ae 
15> $08 
183 Foe 
ae 
183 $40 
CA 867 a a DECW FWASQ_SHRFIL(R10) 
CA 87 ' us DECW FWASQ_AS_SHRFIL(R10) 
0 714 IF NDF ,STASWITCH 
188 Pe 
it nS : Deal with FOREIGN devices in a separate code section. They all allow ANSI-"'a’’ 
4 18 3 names, so don't worry about checking them. 
188 720° 
18 £0 01 721 BBS #DEVSV_FOR, jrest PRIM_DEV(R9), FOREIGN ; branch if dev mntd foreign 
30 €0 O18F 7 ; BBS #FABSV_NFS+FOP, (R8) , FOREIGN branch if gt acters 
05 €0 0193 7 BBS #DEV$V~SQD, IFB$L_PRIM_DEV(R9), 108; branch if magtape 
03 =€1 B13e 4 : BBC #DEVSV_OIR, IFBSL_PRIM_DEV(R9), 10$: branch if not dir device 
0198 726; 
0198 7 : 3; At this point we ore sure that we are not yeing an ANSI magtape device. 
0198 728 ; Check to see if we have an ANSI quoted string in the FWA, denoted by 
0138 , 3 FWASV_QUOTED set and FWASV_NODE not set. 
198 «731° 
1A ~€1 #0198 7 ¢ BBC #FWASV_QUOTED, ( ),10$ ; quoted not set 
19 ~=«€1 Bie 4 ? BBC #FWASV_NODE, eRIG art 3; networking, no problem 
iN 5 -ENDC ;STASWITCH 
05 ois 4 ; 10$: RSB 3; exit 
UiA4 739 208: RMSERR FNM 3: error in file name 
0S O19 740 RSB 
O1AA = 741 
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RMOPRELNM PROCESS FILE NAME 16-SEP-1984 00:28:51 VAX/VMS Macro v04-00 Page 1 
v04-088 GETDEV_CHAR = Determine the device chara ets Ti 98:38:36 RMS.SRCIRMOPRFLNM.MAR; 1 . (8) 
1AA 43 
i te If NDF ,STASWITCH 
1AA reg ; User has requested non-file-structured operations (via the nfs fop bit) 
i i 3 or device was mounted foreign. 
1AA 8 ; Clear the ‘dir’ and ‘sdi' device characteristics (directory, siagle directory) 
1AA =—750 ; and set the ‘for’ device characteristic (foreign) and set up various other 
1AA «6751; ~file attributes. 
1AA 7 ¢ : 
1AA 75 
1AA P38 FOREIGN: 
69 18 BA QIAA 755 BICB2 #DEVSM_DIR!DEVSM_SDI,IFBSL_PRIM_DEV(R9); say no directory 
1AD 36 $$8 #DEVSV—FOR, IFBSL-PRIM_DEV(R9); Say foreign device 
1F 69 05 + 181 75 BBC #DEV$V_SQD att PRIM_DEV(R9),CHKRND; branch if not magtape 
51 20 AA g 185 6758 MOVZWL FWASL_RECSIZ(R103,R1 ~ ; fixed recsize from mount 
33 1 1B9 759 BEQL SETREC 3 branch if not speced 
OC 69 : & Ole £60 BBC #IFBSV_CREATE,(R9),10$ ; branch if doing open 
1BF 762; 
pier 768 ; This is create. Only allow blocking if rfm=fix and mrs = recordsize. 
O1BF 765 
01 1F AB 91 1BF 76 CMPB FABSB_RFM(R8) ,AFABSC_FIX; rfm = fix? 
28 12 13 76 BNEQ SETRET : branch if not 
51 36 A 81 1¢ £68 CMP FABSW_MRS(R8),R1 3 same size? 
¢ if; 109 8 BNEQ SETRET 3; branch if not 
60 Ad 1 8B 1CB 770 108: MOVW R1, 1FBSW_MRS(R9) ; set fixed rec size from 
O1CF 386771 3 mount parameter. 
69 01 BA Bice ure BICB2 M#DEVSM_REC, IFBSL_PRIM_DEV(R9); clear ‘unit rec’ char. 
|) ee ce BRB SETFIX : a8 set fixed record length 
18 69 1¢ —1 1D4 774 CHKRND: BBC #DEVSV_RND,: -BSL_PRIM_DEV(R9) ,SETREC; branch if not disk 
60 A9 48 A9 BO 0108 775 MOVW IFBSL_BEVBUFSIZ(R9), IFBSW_MRS(R9); say fixed 512 records 
7409 O02 CE O1DD 776 MNEGL #2, I1FBSL_EBK(R9) : say large eof blk 
Brey 777 3: (RAMICREATE increments this) 
70 A9 «6©01)—Cs«CE:s«C«#*ONE1=—s_ (778 MNEGL #1, I1FBSL_HBK(R9) ; say large allocation 
50 AD =601)0S «90s «O1ES)=s 779:« SETFIX: MOVB #FABSC_FIX,IFB$B_RFMORG(R9); say fixed records Len. 
529 60A9 BO O1E9 780 MOVW IFBSW_ARS(R9), IFBSW_LRL(R9): set fixed rec Len. 
03 11 «OE 781 BRB EXIT 3; continue 
69 01 88 O1F 7 ¢ SETREC: BISB2 #DEVSM_REC,IFBSL_PRIM_DEV(R9); say mt is unit rec 
05 22 a9 OS €0 OF 783 EXIT: 8BS #IFBSV_BIO, IFB$B_FAC(R9),10$; branch if block i/o 
1F 784 SSB #1FBSV_BRO, IFBSB_FAC(R9); allow block i/o functions 
05 O1FD 785 10$: RSB 
pire 7 § 
1FE 7 ~ENDC sSTASWITCH 
O1FE 788 
O1FE 789 ERRASGN1: 
FED6 31 OWE 790 BRw ERRASGN 


RMC 
Tat 


en — 
| 


no more channels error. 


RMOPRELNM PROCESS FILE NAME 16-SEP-1984 7:28:51 VAX/VMS Macro v04-00 Page 17 
v04-038 GETDEV_CHAR = Determine the device chara 5-SEP-1984 93:33:39 LRNS  SRCIRMOPRELNMMAR: 1 . (10) 
i lf NDF ,STASWITCH 
95 : Process-Permanent File - check device characteristcs for terminal 
£36 ; and if so reassign the channel in super mode. 
£8 : ~ hy reset device characteristics to indicate get/put access 
0; 
1 
26 69 O02 €E1 § 
5; 
0 Og 3; Process poresnens file is a terminal - reassign channel in super mode 
07 ; retain the exec mode channel until we have a super mode channel, 
4 ; so that the virtual terminal ucb will not disappear. This, 
. ; unfortunately, has the property that the user can get a spurious 
ae 
52 20 a9 80 0 18 MOVW IFBSW_CHNL(R9) ,R2 3 Save exec channel number 
0 14 SASSIGN_S - 
0 15 FWASQ_DEVICE(R10),- 
0 16 IFBSW_CHNL(R9),= 
0 1 #PSL$C_SUPER 
53 50 00 18 MOVL RO,R3 3 preserve assign status code 
19 SDASSGN_S R2 3 return the exec mode channel 


0353 €9 BLBC “R3,ERRASGN1 


Assume no change in dev chars; hence no need to reprocess. 


If FABSV_GET not set in fac, clear DEV$V_IDV. 
If FABSV_PUT not set in fac, clear DEV$V_ODV. 


0A 22 a9 01 €0 SETDEV: BBS #FABSV_GET, IFBS$B_FAC(R9).10$; branch if ‘get’ on 

CSB #DEVSV~IDV, IFBSL-PRIM_DEV(R9S 
CSB #DEVSV_IDV, IFBSL_AS_DEV(R9) 
ASSUME FABSV_PUT EQ 0 

OA 22 AD EB 10$: BLBS rose FAC(R9) g0s ; branch if ‘put’ on 
CSB #DEVS0_ODV, IFBSL_PRIM_DEV(R9) 
CSB #DEVSV~ODV, IFBSL-AS_DEV(R9) 

FE6B (31 20$: BRW RMSSETFIB : return to main Line 


SOoCCCOCOCOOCOCOOCO COCO OOOOCOCOOOCOOOCOOCOOOOOOOOO 
PIPIPIPIPIPIPINPINIPIHPIPOPYHPINIPYPNPONy: 

BPH FAWN NININMININI NPN  — 

@WWormn>y> YS YF FCWWVWWIVIVIVIVIVIWD OND OOOOMVIMINNNWWWnnn ee 
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-ENDC = ;STASWITCH 


Vv ev. 
DIRECiPPF : 
BBC #DEVSV_TRM, IFBSL_PRIM_DEV(R9) ,SETDEV 
| 
! 
| 
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PROCESS FILE NAME SEP-19 0:28:51 VAX/VMS Macro v04-00 Pa 1 
GETDEV. CHAR = Determine the device chara .* sey 9:38:39 RMS.SRCIRM oP RFLNM.MAR; 1 = 13) 
48 4 
rt rt IF NDF ,STASWITCH 
rt r ; Handle indirect open of process permanent file. 
i ‘? : Perform various checks to see if operation possible. 
48 rk : (Note: This routine has the side effect of turning a SCREATE 
rt 29 ; on an inidrect process permanent file into an SOPEN) 
4B 50 ‘ 
48 535 INDPPF: 
28 23 STSTPT INDPPF 
8 51 56 ASSUME FABS$V_UFO GE 16 
51 57 ASSUME FABSV_NFS GE 16 
0251 58 
0251 859; 
0251 860 ; Check for various invalid options. 
098] Bee 
06 AB O03 93 $52) eg BITB #<F ABSM_UFO! FABSM_NF S>@-16,FABSL_FOP+2(R8) 
55 ig 0255 He BNEQ ERRFOP ; bran ch” i ony specified 
OD AA 95 0257 65 TSTB FWASB_ESCTYP(R10) ; pecape type ? 
56 12 O25A 866 BNEQ bra if not (not Legal) 
OE AA O02 OF ED O25C 867 CMPZV #1482, FWASW_ ESCIFI(R10).#* B10: pk. ifi indicate a ppf? 
4E 12 0262 868 BNEQ ERRLNE- : branch if not 
0264 869 
0264 870; 
8 et 1h 3; Get address of process permanent file IFAB and check it out. 
0264 a8 F 
57 59 00 8 ¢ are MOVL R9,R7 3; save ifab addr 
0367 B76 ASSUME FABSV_PPF_IND GE 8 
OF AA 40 8F 8 0267 78 BISB2 #FABSM_PPF_INDa-8,FWASW_ yet pd kde 14, he non-privileged ppf ifi 
9 OE AA C 026C 79 MOVZWL FWASW_ESCIFI(R10) ,R9 and move it r9 
0 06 00 8 A 80 OVL #IMP$C_IFABTBL/4,RO : ifab table offset/4 
58 3 7 + PUSHL Rit 3 save apure area pointer 
FD88" 30 0275 ¢ BSBW RMSGTIADR ; get ifab address 
0800 8F BA 8 78 8 POPR et le ; restore image ite ptr (save cc's) 
41 13 7C 84 BEQL ERRIFI : branch if 2 pet ifab 
0B OB AD 91 3 $2 CMPB IFB$B_BID(R9) ,MIFBSC 810; is it an 
12 o $ BNEQ ERRBG3 really bad. 2 not! 
Be (BBO 
? 3; Got ppf IFAB o.k. 
4 91; Insure org is sequent tal and rfm is not UDF 
? 35 ; (Note: User fac is ignored. Each operation will be checked.) 
4 894° 
r ¢ ASSUME FABSC_SEQ EQ 0 
23 a9 95 4 38 TSTB IFB$B_ORGCASE(R9) ; seq file org? 
3D 0s 12 7 98 BNEQ ERRORG ; branch if not (not supported) 


ee 
RMOPRFELNM PROCESS FILE NAME 16-SEP=1 YAX/ vis Macro v04-00 Page 19 RM 
vO4-088 GETDEV_CHAR = Determine the device chara g7SEP P19 3b 98: 33:39 LAS SRCIRMOPRELNM. MAR: 1 ° (12) v0: 
ASSUME FABSC_UDF EQ 0 
TSTB I1FBSB_RFMORG(RI) ; undefined format? 
BEQL ERRRFA 3; branch if so (not supported) 


Check for valid rat value: must be only one of cr, ftn, or prn. 
If prn set in rat must also be set for real file. 


Isolate cee control bits 


51 04 CLRL i zero-extend the field 
51 1E AS F8 BF 8B BICB3 4255\<FABSH CR!FABSM_FTN! FABSM PRN>, fabSS RAT(R8),R1 
09 69 1B €1 BBC #DEV$V_O OoV. TFBSL_PRIA_ DEV(R 9),5$; branch it input only 
05 51 Os E1 BBC FF ABSV branch if no 
31 51 A9 0 E1 BBC #FABSV_ PRN. ; 1FBSB_ RAT(R9), * ERRRAT; sont ff "opt not prn 


ASSUME paeey FIN EQ 0 
ASSUME FABSV~CR EQ FABSV in 
ASSUME FABSV_PRN EQ FABST_CR+1 


uM 
o 
wr 
ws) 
Oo 
wun 
SOSDSDSDSDOODODODOSDODOOSDOOOOO <u 
3 3 3 3 SS SS IQ OOO 0 


PPrrrrrr rr Pr OOOO MMmMmcccccDCD CD CD CD CD 


COCO COCO CO\WWNWIWWIAIAIET &S OOMMMMMMMMoOOOoO rn 


De 
6 
9 
: 
3s 
309 
908 
5 
4 1 
313 
914 
g 5 
319 
918 
35 
a ce eS $ 4 2 5$: BBC R1,1°#*B00010111,ERRRAT ; branch if more than 1 ccl attr 
925 ; 
0 3 : : Check for ppf IFAB busy setting busy if not in use. 
02A8 926° 
38 69 20 €3 i 4 i 10$: BBCS #IFBSV_BUSY,(R9), IND_PPF_OK; branch if not busy 
O2AC 929 
O2AC 386 ERRFOP: 
O2AC 931 RMSERR FOP ; invalid fop bits for ppf 
05 8 a! oa6 RSB 
028 oRe ERRLNE: 
028 935 RMSERR LNE : invalid equivalence string 
0 O5B8 937 “99 
8 +4 336 ERRBG3: RMSTBUG FTL$_BADIFAB ; invalid ifab 
O2BF 940 ERRIFI: 
O2BF 941 RMSERR IFI : invalid equiv. string ifi 
13 «11 cS 348 BRB RESTORE_IFAB 
C6 944 ERRORG: 
C6 3 =945 RMSERR ORG ; ppf not sequential org 
oc «(11 cB 268 BRB RESTORE_IFAB 
CD 948 ERRRFR: | 
CD 394 RMSERR REM : ppf UDF format 
05 11 0202 950 BRB RESTORE_IFAB | 
D4 93¢ ERRRAT: 
D6 = 95 MSERR RAT ; bad rat value 
D9 gee RESTORE_IFAB: ‘ 
59 57 00 D9 = s«9 55 MOVL R7,R9 3 restore temp. ifab addr 


RMOPRELNM PROCESS FILE NAME 16-SEP-1984 00:28: AX/VMS Macro V04-0 P 
VoeeOss GETDEV_CHAR = Determine the device chara ets 7 99:38:39 YAMS SRCTRMOPRECNM RAR: 1 _ F) 
05 dC § RSB 3 go handle error 
8 
DD 4 : ERRNAM 
02. BA DD $9 POPR #*M<R1> ; get ppf ifab addr 
DF 96 CSB #1FBSV_BUSY,(R1) ; clear busy 
05 E3 306 RSB i go clean up 
02E4 96 


N 7 


RMOPRE LNA PROCESS FILE NAME 16-SEP-1984 00:28:51 VAX/VMS Macro V04-00 Page 21 
vo4-038 GETDEV_CHAR = Determine the device chara att 7 93:38:09 RMS.SRCIJRMOPRFLNM.MAR; 1 . fay 
EL See 
£4 sey ; The indirect open of the process permanent file is peratssedie. 
5? ses 3 switch to using the ppf IFAB for the remainder of this open. 
£4 970: Must perform the following: 
EL ht: < “ 
E4 3f6 : 1. Set ppf image bit. 
ES 973; 2. Copy caller's mode and arg list address to the ppf ifab. 
ES 974; (Note: there will be no asb because no stall can have occurred.) 
O2ES4 975; 3. Return the temporary ifab and fwa. 
8 E4 378 3 4. Zero the ifi table entry to temporary ifab. 
ES 977; 5. Move address of pio impure area to rill and copy saved sp 
O2E4 44 3 to pio impure ares. 
8 ES 979; 
E4 ++ 
0 E4 981 IND_PPF_OK: 
8 + o88 SSB #IFBSV_PPF_IMAGE,(R9) ; indicate indirect processing 
. 6 
OA AD OA AZ 90 O 34 age MOVB IFB$B_MODE(R7) , IFBSE moe (R9); save caller's mode 
18 AD 18 A? DO 8 ED 985 MOVL IFBSL-ARGLST(R?) , IFBSL_ARGLST(R9) ; and arg List addr 
59 oD Fe 986 PUSHL R9 3; save ppf ifab addr 
O2F4 + 14 
O2F4 988 ; : 
8 4 280 3 Fill in name block, if any, with resultant string and dvi. 
O2F4 991 
59 57 8 O2F4 992 MOVL R7,R9 3; restore temp ifab addr 
FD06" 30 O2F7 BSBW = RMSFILLNAM : fill in nam blk if any 
—E0 50 €9 O2FA 994 SLBC RO, ERRNAM ; branch on error 
5C OE AA 8 bghe 995 MOVW FWASW_ESCIFI(R10),AP 3; save ifi code . 
FCFC’ 01 996 BSBW RASOEALLOCATE PUA ; deallocate fwa_and associated struct. 
53 59 DO 0304 997 MOVL ROR ; ifab addr to r3, 
54 59 D0 0307 998 MOVL RO, RS : 4 for retblk 
FCF3" 30 030A 999 BSBW sa RMSRETBLK : deallocate ifab 
030D 1000 
030D 193) H 
30D 10 § 3 return all pages used 
$0) 1005 ; 
0D 1004 
SA 59 08 C3 030D 1005 SUBL3 #8,R9,R10 : get ifab list head 
54 6A 00 bait ' 8 MOVL (R10). R4 3 get first hole (must be there - ifb) 
64 DD 14 1 4 1$: PUSHL (R4) 3; save forward pointer 
OOOO01F8 8F O08 AS 01 16 1 CMPL 8(R4) , #504 ; hole should be at least a page (-header) 
58 OF 1—E 1010 BLSSU DEALLERR 3 some one goofed 
FCDOD’ 30 1011 BSBW RMSRETIPAG : return it 
54 BED 1 \¢ POPL 4 3 restore pointer to next hole 
SA 54 ODI 3 101 CMPL R4,R10 z all done? 
E9 = 12 : ; \ BNEQ 1$ ; do next 
a 
FCD2° 30 B 1 +} BSBW RMSZAPIFI : zero ifab table entry | 
59 gf 4 E 101 MOVL (SP)+,R9 3 restore ppt ifab addr 
5A D i 18 MOVL RO, R10 > copy to rl0 
4 1936 3 é 
4 1021 ; Copy saved sp value. 


RMOPPRFLNM PROCESS FILE NAME 16-SEP-1984 00:28:51 VAX/VMS Macro v04-00 Page 22 
VO4-088 GETDEV_CHAR = Determine the device chara etsy 98:38:39 LRMS. SRCIRMOPRELNM. MAR; 1 ’ (14) 
2 1098 
00000014'9F 14 AB 0 4 1024 MOVL IMP$L_SAVED_SP(R11) ae#P 10$GW PIOIMPA+IMP$L_SAVED_SP 
5B 00000000'9F  3E ; : MOVAW  a@#PIOSGW_PIOIMPA,R11 ; get pio impure area addr 
43 1 5 
0 : 19 8 ; Output the new ifi value and bls field to fab. 
43 1030 ° 
3c AB = 0094 £9 BO 6 4 133) MOVW IFBSL_ASDEVBSIZ(R9), *ABSW -BLS(R8); default buffer size 
0 8EDO 0349 10 § POPL RO 3” pop return pc 
ae 
034C 1 $2 : If user specified stream format but RAT=0, force RAT=CR 
034C 1036 ; to get proper output. 
S3ce 1038 
046 1F AS 91 Q34C 1039 CMPB FABSB_RFM(R8) ,AFABSC_STM ; user specified stream format? 
0B 1F 0350 1040 BLSSU 5$ branch if not 
07 93 0352 1041 BITB #<F ABS CRIFABSM_ FTN! FABSM_ PRN>,= 
1E AB 0354 1068 F ABSB_RAT( ; user specified RAT? 
05 12 0356 104 BNEQ 5$ 3 branch if so 
0358 1044 SSB #FABSV_CR,FABSB_RAT(R8) ; force RAT=CR 
5C 08 06 1E A8 FO O035D 1045 5$ INSV PARSE RAT(RB) AFABSV_ PPF_RAT ,#FABSS_PPF RAT, AP; save rat in ifi 
02 AB 5C B80 0363 1906 MOVW AP, FABSW_ 1FI(RB) ; construct non=priv. ifi 
$367 1068 
0367 1049 : Return the real rat and rfm values for the file, except 
0367 1050; If this is a unit record device and the user has not specified 
0367 1051 ; print file carriage control, return rfm=var and don't change the 
0367 1338 3; user's rat field. 
b3e7 Jose 
tae 1932 ASSUME DEVS$V_REC EQ 0 
369 €8 0367 1057 BLBS {Fes PRIM_DEV(R9) ,20$ ; breneh if unit record 
FC93" 31 QO36A 1058 10$: BRW RMSCOPRTNI~ #10 sh up open 
F9 5C 608 €0 036D 1059 20$: BBS #F ABSV_PRN+F ABSV_PPF _RAT, “A 1080 ‘rout if user specifed 
0371 1060 rint file carriage ctl. 
1F AB 02 90 ti4 1061 MOVB #FABSC VAR FABSB _RFM(RB) : ohenee rfm to var 
FC88" 31 0375 1996 BRW RMSCOPRIN ; finish up open, without 
b356 1392 ; altering user's rat 
O378 1992 DEALLERR: 
baee 1396 RMSTBUG FTL$_DEALLERR 
037F 1068 -ENDC =; STASWITCH 
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v04-03 RMSRET_DEV_CHAR = Set device characteris 5-SEP-1984 16:22:09 CRMS.SRCIRMOPRFLNM.MAR; 1 (15) 
rr ! 9 io -SBTTL RMSRET_DEV_CHAR = Set device characteristics into FAB 
7F 1072 : 
oF ! 78 ; Set the associated device characteristics into the FAB. 
gr ! ie : The following algorithm is used to determine the characteristics: 
7F 1979 ; Foreign-mounted devices: 
0 7F 1078 ; FABSL_DEV = FABSL_SDC = IFBSL_AS_DEV 
fF 1078 ; Spooled devices: 
O37F 1080 ; FABSL_DEV = IFBSL_AS_DEV 
8 7F 198 ; FABSL_SDC = IFBSL_PRIM_DEV 
7F 10 § 3 Network devices: 
QO37F 1083 ; ’ As determined by NTSREG_DEV_CHAR 
N37F 1084 ; Indirect PPF sequent iat devices: 
O37F 1085 ; FABSL_DEV = IFBSL_PRIM_DEV modified to be a record device: 
O37F 1086 ; DIR, FOD, RND, SDI, SQD cleared 
O37F 1087 ; REC, CCL set 
bac 1088 ; FABSL_SDC = IFBS$L_AS_DEV 
O37F 1089 ; ALL other normal devices: 
O37F 1090 ; FABSL_DEV = IFBSL_PRIM DEV 
OaeF 193 ; FABSL_SDC = IFBSL-AS_DEV 
037F 1998 : If device is foreign, move AS_DEV characteristics into both FAB 
O37F 1094; characteristics words, since the PRIM_DEV has been altered for 
037F 1095 ; internal RMS processing requirements Te.g. DIR has been cleared, FOR 
Beer 1096 ; may have been set because of NFS, etc.). 
O37F 1097 ; 
O37F 1098 ;-- 
037F 1099 
oar B's RMSRET_DEV_CHAR: : 
40 AB 69 DO O37F 1198 MOVL IFBSL_PRIM_DEV(R9) ,FABSL_DEV(R8) 3; set prim dev char 
44 a8 008C C9 00 0383 110 MOVL IFBSL-AS_DEV(R9) ,FABSL_ SBC (RB) 3 set secondary dev char 
0A 69 18 €0 tte 1104 BBS #DEVSU_FOR, IFBSL_PRIM BEV(R9) ,10$ ; diff if foreign 
OA 008C C9 06 €1 O38D 1105 BBC #DEVSV_SPL,IFBSL_AS DEV(R9) ,20$ 3; okay if not spooled 
44 a8 69 DO 0393 1106 MOVL 1FBSL_PRIM DEV(R9) ,FABSL_SDC(R8) 3; set alt dev. char. 
40 a8 008C C9 —»0 Seg 1190 10$ MOVL IFBSL_AS_DEV(R9) ,FABSL_DEV(R8) 3 set alt dev. char. 
th 119) ASSUME FABSC_SEQ EQ 0 
23 Ads o9'S 039 1111 208: TSTB {SSSR _ORECASE CHV ; sequential file org? 
10 12 Q3A0 W116 BNEQ 0$ 3; branch if not 
aad 1114 
Sa2 1115: If this is an indirect process-permanent file, set up the device characteristics 
, 1118 : to make it look Like a unit record device. 
Ad 1118 © 
0c 69. 22~=«C#€E1 A 1119 BBC #IFBSV_PPF _IMAGE,(R9) ,30$ ; branch if not indirect ppf 
40 AB 10004038 8F CA Q3A6 1120 BICL2 #DEVSM~DIRTDEVSM_FOD ! DEVSM_RND bg ; clear file characteristics 
3AE 1121 'DEVSM_SDI!DEVSM_SQD ,FABSL_DEV(R8) 
03; c8 beak 11 ¢ BISL2 #DEVSM_REC!DEVSM_CCL,- ; and set unit record chars. 
40 AB 1 : FABSL_DEV(R8) 
83 1125 ; 
B2 1126; 
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RMOPRFLNM PROCESS FILE NAME 16-SEP-1984 00:28:51 VAX/VMS Macro v04-00 p 
Symbol table Breen 1obe 16:50:09 FAMseRciamopRtoNmegaR:1 29 (48, 
Mette “Pisaur econ = Popoo yrs ROSPRECNRALT auttdait nC 1 
= o 
FWA NAM . x RMSRETIPAG seenenes 1 : 
FUASV-CONCEAL_DEV 2 RMSRETBLK eeeeneee i : 
FWASV-DIR_LVLS s p RMSRET_DEV_CHAR 0000037 RG 0 : 
FUASV-NODE™ . 1 RMSSETFIG 00086 RG OT : 
FWASVQUOTED ° iA RMSXPFN eeeneeee x OT : 
FWASV “WILDCARD . 18 RMSZAPLE I eeneenee X01 : 
ae en : ae : Silt : 
= s Ps 
cue ht ir : Bae : 
= = Py 
1FBSB~FAC . p b098 RMSS71FI = 00018564 : 
1F BSB MODE = 9000000 RMSS7LNE = 9001858¢ : 
1F BSB ORGCASE = 00000023 RMS$~ORG = 0001860¢ : 
1FBSB-RAT = 90000081 RMSS"RAT = 0001864¢ : 
1B aon ze ae ae : 
= F ° 
1FBSLTARGLST = 00000018 SETDEV 90000228 R : 
at ert at = 900008C se relt SoopoOr? RO 
Heeb -peMBur siz = B99an0es sErhee aupooird kg ; 
= ° 
1FBSU-HBK = 00000070 SYSSASSIGN ceeeeeee GX 01 : 
IFBSL~PRIM_ DEV = 0000000 SYSSDASSGN eeeeenee GX 01 : 
IFBSV_BIO ~ = So0n00e5 SYSSGETOVIW eeeneeee GX 01 3 
IFBSV~ RO = 90000006 TPTSL_ INDPPF eeenvese Xx OT 
1FBSV = 000000 : 
IFBSV-CREATE = 00000082 : 
IFBSV~DAP = 000000 : 
1FBSV~PPF_IMAGE = 000000 3 : 
1FBSV~WRTKC = 000000 : 
1F BSW” CHNL = 9000002 : 
1FBSW7LRL = 900000 : 
1FBSU"ARS = 0000006 : 
IMPSC~ASYQIOEFN = 900000TE : 
IMPSU~1FABTBL = 00000018 : 
ISPSL~SAVED. SP = 90000014 : 
INDPPF 00000248 R : 
IND. PPF_OK 000SE4 : 
NISHSSICN keerenee : 
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Psect synopsis - :09 CRMS.SRCIRMOPRFLNM.MAR; 1 
Foeeececesooesoese + ; 
: Psect synopsis ! ; 
PSECT name Allocation PSECT No. Attributes 
- ABS . 000000 0:) of NOPIC USR CON ABS LCL as NOEXE NORD art NOVEC BYTE ; 
RMSRMSO 0000 96 9.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
ABS$ 0000000 ( 2 { 2: ) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
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Initialization ¢ 08:00:08 -41 08:80 :00.88 
ponnens processing 115 8:90:09. 09 68 ‘ 
436 00:00:1 2} 0:00: 9-98 
Synbol table sort 00:00:02.51 0:00:03.60 
19 Eb Ee oe Ho OEE 
Symbol table output 24 Ba 0:00.19 0:00:00.73 
Psect synopsis output 2 0:00:00.02 00:00:00.02 
Cross-reference output 0 ses $84 00:00:00.00 
Assembler run totals 806 00:00:25.46 00:01:14.75 


The working set Limit was 1800 pages. 
97540 bytes (191 pages) of virt 
There were 90 pages of symbol table space gi Cecate to hold 1744 non-local and 999 local symbols. 
1143 source lines were read in Pass 1, produci ng! object records in Pass 2. 

35 pages of virtual memory were used to define 34 macros. 


memory were used to buffer the intermediate c 
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Macro aren name Macros defined 


Siitreyn 8: fans -C84 ns 8: 1 14 
=BS3pS0UA B;1 1 

ESySi IBISTARLET. MLB; 2 15 
Sith yaet Libraries) 30 


1903 GETS were required to define 30 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMOPRFLNM/OBJ=0BJ$:RMOPRFLNM MSRC$:RMOPRFLNM/UPDATE=(ENHS: RMOPRFLNM) ¢EXECMLS/LIB+LIB$:RMS/LIB 
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